From: Stefan Monnier Date: Wed, 22 Aug 2007 15:55:10 +0000 (+0000) Subject: (syms_of_lread): Export old-style-backquotes to Elisp. X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~534^2~3^2~1760 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=f9443bea9cb537860eb53bb0053d3f8f722d66e0;p=emacs.git (syms_of_lread): Export old-style-backquotes to Elisp. --- diff --git a/src/ChangeLog b/src/ChangeLog index 81d4c20cc07..bb0f915533f 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,7 +1,7 @@ 2007-08-22 Stefan Monnier * lread.c (Vold_style_backquotes): New var. - (syms_of_lread): Init and staticpro it. + (syms_of_lread): Init and export it to Elisp. (read1): Set it when we find an old-style (back)quote. 2007-08-22 Jason Rumney diff --git a/src/lread.c b/src/lread.c index 76676f64b2e..02abed1ca99 100644 --- a/src/lread.c +++ b/src/lread.c @@ -4195,6 +4195,10 @@ to load. See also `load-dangerous-libraries'. */); doc: /* List of buffers being read from by calls to `eval-buffer' and `eval-region'. */); Veval_buffer_list = Qnil; + DEFVAR_LISP ("old-style-backquotes", &Vold_style_backquotes, + doc: /* Set to non-nil when `read' encounters an old-style backquote. */); + Vold_style_backquotes = Qnil; + /* Vsource_directory was initialized in init_lread. */ load_descriptor_list = Qnil; @@ -4254,9 +4258,6 @@ to load. See also `load-dangerous-libraries'. */); Vloads_in_progress = Qnil; staticpro (&Vloads_in_progress); - - Vold_style_backquotes = Qnil; - staticpro (&Vold_style_backquotes); } /* arch-tag: a0d02733-0f96-4844-a659-9fd53c4f414d